PCDisk Magazine Disks

home *** CD-ROM | disk | FTP | other *** search

/ PCDisk Magazine Disks / PCDisk Magazine - Disk 2.img / NOTES.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1984-11-10 | 15.6 KB | 439 lines

100 ' PROGRAM NOTES - Copyright (c) 1984 by PC DISK 110 ' Written by Dale Benzer, Software Editor 1000 CLS 'OPEN 1010 KEY OFF 1020 FOR X=1 TO 10 1030 KEY X,"" 1040 NEXT 1050 WIDTH 80 1060 LOCATE 2,32 1070 PRINT "PC BUG FIXES" 1080 GOSUB 1120 'title 1090 GOSUB 1330 'main_menu 1100 GOSUB 2760 'put_prompt 1110 GOTO 1480 'inkey_1 1120 P=4 'TITLE 1130 Q=23 1140 GOSUB 2840 1150 PRINT "Although we make every effort to" 1160 GOSUB 2840 1170 PRINT "provide bug-free software, problems" 1180 GOSUB 2840 1190 PRINT "do get through." 1200 GOSUB 2840 1210 PRINT "This program identifies problems" 1220 GOSUB 2840 1230 PRINT "in PC DISK Issues 5-9 and outlines" 1240 GOSUB 2840 1250 PRINT "solutions." 1260 GOSUB 2840 1270 PRINT "Press the <SHIFT> and <PrtSc> keys" 1280 GOSUB 2840 1290 PRINT "at the same time to get a hard copy" 1300 GOSUB 2840 1310 PRINT "of the fixes." 1320 RETURN 1330 P=15 'MAIN_MENU 1340 Q=28 1350 GOSUB 2840 1360 PRINT "1. FOR ISSUE NUMBER 5" 1370 GOSUB 2840 1380 PRINT "2. FOR ISSUE NUMBER 6" 1390 GOSUB 2840 1400 PRINT "3. FOR ISSUE NUMBER 7" 1410 GOSUB 2840 1420 PRINT "4. FOR ISSUE NUMBER 8" 1430 GOSUB 2840 1440 PRINT "5. FOR ISSUE NUMBER 9" 1450 GOSUB 2840 1460 PRINT "6. TO EXIT PROGRAM" 1470 RETURN 1480 GOSUB 2800 'INKEY_1;get_cmd 1490 LOCATE ,,0 1500 IF A$="1" THEN GOTO 1650 'head_1 1510 IF A$="2" THEN GOTO 1690 'head_2 1520 IF A$="3" THEN GOTO 1730 'head_3 1530 IF A$="4" THEN GOTO 1770 'head_4 1540 IF A$="5" THEN GOTO 1810 'head_5 1550 IF A$="6" THEN GOTO 1570 'exit 1560 BEEP:GOTO 1480 'inkey_1 1570 LOCATE 23,10 'EXIT 1580 PRINT "EXIT PROGRAM (Y/N)? "; 1590 LOCATE ,,1 1600 GOSUB 2800 'EXIT_1;get_cmd 1610 IF A$="Y" OR A$="y" THEN GOTO 5390 'end 1620 LOCATE 23,10 1630 PRINT SPACE$(40) 1640 GOTO 1000 'open 1650 CLS 'HEAD_1 1660 LOCATE 5,30 1670 PRINT "PC DISK ISSUE 5" 1680 GOTO 1850 'menu_1 1690 CLS 'HEAD_2 1700 LOCATE 5,30 1710 PRINT "PC DISK ISSUE 6" 1720 GOTO 1990 'menu_2 1730 CLS 'HEAD_3 1740 LOCATE 5,30 1750 PRINT "PC DISK ISSUE 7" 1760 GOTO 2110 'menu_3 1770 CLS 'HEAD_4 1780 LOCATE 5,30 1790 PRINT "PC DISK ISSUE 8" 1800 GOTO 2210 'menu_4 1810 CLS 'HEAD_5 1820 LOCATE 5,30 1830 PRINT "PC DISK ISSUE 9" 1840 GOTO 2350 'menu_5 1850 P=10 'MENU_1 1860 Q=30 1870 GOSUB 2840 1880 PRINT "1. SHARK HUNT" 1890 GOSUB 2840 1900 PRINT "2. BIORHYTHMS" 1910 GOSUB 2840 1940 PRINT "3. RETURN TO MENU" 1950 GOSUB 2760 'put_prompt 1960 P=4 1970 Q=13 1980 GOTO 2490 'get_1 1990 P=10 'MENU_2 2000 Q=30 2010 GOSUB 2840 2020 PRINT "1. CHAMELEON" 2030 GOSUB 2840 2040 PRINT "2. STOCKMINDER" 2050 GOSUB 2840 2060 PRINT "3. RETURN TO MENU" 2070 GOSUB 2760 'put_prompt 2080 P=4 2090 Q=13 2100 GOTO 2550 'get_2 2110 P=10 'MENU_3 2120 Q=30 2130 GOSUB 2840 2140 PRINT "1. LABELMAKER" 2150 GOSUB 2840 2160 PRINT "2. RETURN TO MENU" 2170 GOSUB 2760 'put_prompt 2180 P=3 2190 Q=13 2200 GOTO 2600 'get_3 2210 P=10 'MENU_4 2220 Q=30 2230 GOSUB 2840 2240 PRINT "1. STAT LIBRARY 1" 2250 GOSUB 2840 2260 PRINT "2. BASIC SCREENMAKER" 2270 GOSUB 2840 2280 PRINT "3. HOME INVENTORY" 2290 GOSUB 2840 2300 PRINT "4. RETURN TO MENU" 2310 GOSUB 2760 'put_prompt 2320 P=4 2330 Q=13 2340 GOTO 2640 'get_4 2350 P=10 'MENU_5 2360 Q=30 2370 GOSUB 2840 2380 PRINT "1. THE PLANNER" 2390 GOSUB 2840 2400 PRINT "2. BASIC SHRINKER" 2410 GOSUB 2840 2420 PRINT "3. POLITICAL PURSUITS" 2430 GOSUB 2840 2431 PRINT "4. SOUND TUTOR" 2432 GOSUB 2840 2440 PRINT "5. RETURN TO MENU" 2450 GOSUB 2760 'put_prompt 2460 P=4 2470 Q=13 2480 GOTO 2700 'get_5 2490 GOSUB 2800 'GET_1;get_cmd 2500 IF A$="1" THEN T$="SHARKHUNT":GOTO 3050 'info_1a 2510 IF A$="2" THEN T$="BIORHYTHMS": GOTO 3110 'info_1b 2530 IF A$="3" THEN GOTO 1000 'open 2540 BEEP:GOTO 2490 'get_1 2550 GOSUB 2800 'GET_2;get_cmd 2560 IF A$="1" THEN T$="CHAMELEON":GOTO 3350 'info_2a 2570 IF A$="2" THEN T$="STOCK MINDER":GOTO 3570 'info_2b 2580 IF A$="3" THEN GOTO 1000 'open 2590 BEEP:GOTO 2550 'get_2 2600 GOSUB 2800 'GET_3;get_cmd 2610 IF A$="1" THEN T$="LABEL MAKER":GOTO 4030 'info_3a 2620 IF A$="2" THEN GOTO 1000 'open 2630 BEEP:GOTO 2600 'get_3 2640 GOSUB 2800 'GET_4;get_cmd 2650 IF A$="1" THEN T$="STAT LIBRARY 1":GOTO 4690 'info_4a 2660 IF A$="2" THEN T$="BASIC SCREENMAKER":GOTO 4830 'info_4b 2670 IF A$="3" THEN T$="HOME INVENTORY":GOTO 4910 'info_4c 2680 IF A$="4" THEN GOTO 1000 'open 2690 BEEP:GOTO 2640 'get_4 2700 GOSUB 2800 'GET_5;get_cmd 2710 IF A$="1" THEN T$="THE PLANNER":GOTO 5030 'info_5a 2720 IF A$="2" THEN T$="BASIC SHRINKER":GOTO 5150 'info_5b 2730 IF A$="3" THEN T$="POLITICAL PURSUITS":GOTO 5270 'info_5c 2735 IF A$="4" THEN T$="SOUND TUTOR":GOTO 5371 2740 IF A$="5" THEN GOTO 1000 'open 2750 BEEP:GOTO 2700 'get_5 2760 LOCATE 23,10 'PUT_PROMPT 2770 PRINT "YOUR CHOICE: "; 2780 LOCATE ,,1 2790 RETURN 2800 LOCATE ,,1 'GET_CMD 2810 A$=INKEY$ 2820 IF A$="" THEN 2800 'get_cmd 2830 RETURN 2840 P=P+1 'PINC 2850 LOCATE P,Q 2860 RETURN 2870 CLS 'START_INFO 2880 PRINT T$ 2890 GOSUB 2840 2900 RETURN 2910 LOCATE 23,10 'END_INFO 2920 PRINT SPACE$(40) 2930 LOCATE 23,10 2940 PRINT "PRESS ANY KEY TO CONTINUE "; 2950 LOCATE ,,1 2960 GOSUB 2800 'get_cmd 2970 CLS 2980 RETURN 2990 GOSUB 2910 'MORE_INFO;end_info 3000 P=6 3010 Q=13 3020 PRINT T$ 3030 GOSUB 2840 3040 RETURN 3050 GOSUB 2870 'INFO_1A;start_info 3060 PRINT "PROBLEM:" 3070 GOSUB 2840 3080 PRINT "The program will not load." 3081 GOSUB 2840 3084 PRINT "SOLUTION:" 3085 GOSUB 2840 3086 PRINT "The documentation says to type SHARK from DOS to run the" 3087 GOSUB 2840 3088 PRINT "program. You must type SHARKHUN instead." 3090 GOSUB 2910 'end_info 3100 GOTO 1650 'head_1 3110 GOSUB 2870 'INFO_1B;start_info 3120 PRINT "PROBLEM:" 3130 GOSUB 2840 3140 PRINT "The calculation for the number of days between two dates is off." 3150 GOSUB 2840 3160 PRINT "SOLUTION:" 3170 GOSUB 2840 3180 PRINT "In line 5080, change RETURN at the end of the line to GOTO 5120." 3190 GOSUB 2840:GOSUB 2840 'pinc 3200 PRINT "PROBLEM:" 3210 GOSUB 2840 3220 PRINT "On the Biorhythms plot, the weekdays are wrong." 3230 GOSUB 2840 3240 PRINT "SOLUTION:" 3241 GOSUB 2840 3242 PRINT "In line 2050, after the statement PY1=VAL(MID$(PYR$,3,2)): insert" 3243 GOSUB 2840:GOSUB 2840 3244 PRINT "M1=PMON:D1=PDAY:Y1=PY1:GOSUB 6990:PDAY$=DAY2$(R1):RZ=R1:HOLD=RZ:" 3250 GOSUB 2910 'end_info 3260 GOTO 1650 'head_1 3350 GOSUB 2870 'INFO_2A;start_info 3360 PRINT "PROBLEM:" 3370 GOSUB 2840 3380 PRINT "Program hangs or ends with message: Return Without Gosub." 3390 GOSUB 2840 3400 PRINT "SOLUTION:" 3410 GOSUB 2840 3420 PRINT "Edit line 6970 and after the word THEN insert" 3430 GOSUB 2840 3440 PRINT " GOSUB 10000:RETURN" 3550 GOSUB 2910 'end_info 3560 GOTO 1690 'head_2 3570 GOSUB 2870 'INFO_2B;start_info 3580 PRINT "PROBLEM:" 3590 GOSUB 2840 3600 PRINT "Option 5, Buy/Sell Analysis - the delta calculation doesn't clear" 3610 GOSUB 2840 3620 PRINT "properly. A second analysis yields different results." 3630 GOSUB 2840 3640 PRINT "SOLUTION:" 3650 GOSUB 2840 3660 PRINT "Insert SUMSQR=0 at the beginning of line 2200." 3670 GOSUB 2840:GOSUB 2840 3680 PRINT "PROBLEM:" 3690 GOSUB 2840 3700 PRINT "Option 8,Switch Stock Lists - When switching to a list with" 3710 GOSUB 2840 'more_info 3720 PRINT "less entries than the former, the extra names are not cleared." 3730 GOSUB 2840 3740 PRINT "SOLUTION:" 3750 GOSUB 2840 3760 PRINT "Create line 286 to read:" 3770 GOSUB 2840:GOSUB 2840 3780 PRINT "286 I=A+1:WHILE I<31 AND NM$(I)<>";CHR$(34);" ";CHR$(34); 3790 PRINT ":NM$(I)=";CHR$(34);" ";CHR$(34);":I=I+1:WEND" 3850 GOSUB 2990 'more_info 3860 PRINT "PROBLEM:":GOSUB 2840 3865 PRINT "Syntax Errors." 3870 GOSUB 2840 3880 PRINT "SOLUTION:" 3890 GOSUB 2840 3900 PRINT "EDIT lines 769 and 771 to read as follows:" 3910 GOSUB 2840:GOSUB 2840 3920 PRINT "769 PRINT TAB(27) I+10;NM$(I+10);:IF FL(I+10,V1)>0" 3930 GOSUB 2840 3940 PRINT " THEN PRINT TAB(43);:PRINT USING F$;FL(I+10,V1);" 3950 GOSUB 2840 3960 PRINT "771 PRINT TAB(55) I+20;NM$(I+20);:IF FL(I+20,V1)>0" 3970 GOSUB 2840 3980 PRINT " THEN PRINT TAB(71);:PRINT USING F$;FL(I+20,V1);" 4010 GOSUB 2910 'end_info 4020 GOTO 1690 'head_2 4030 GOSUB 2870 'INFO_3A;start_info 4040 PRINT "PROBLEM:":GOSUB 2840 4050 PRINT "The menu is slightly different from the documentation.":GOSUB 2840 4051 PRINT "SOLUTION:":GOSUB 2840 4060 PRINT "The menu option CATEGORIES IN FILE is the same as":GOSUB 2840 4065 PRINT "DISPLAY LABEL CATEGORIES in the documentation." 4070 GOSUB 2840:GOSUB 2840 4080 PRINT "PROBLEM:":GOSUB 2840 4090 PRINT "Two prompts are not correct.":GOSUB 2840 4095 PRINT "SOLUTION:":GOSUB 2840 4100 PRINT "Line 3960 should be changed to read as follows:" 4105 GOSUB 2840:GOSUB 2840 4110 PRINT "3960 K$=0:KS$=";CHR$(34);CHR$(34);":LOCATE 23,1:"; 4115 PRINT "PRINT CLX$:LOCATE 23,1:COLOR 10:":GOSUB 2840 4120 PRINT " PRINT ";CHR$(34);"Select";CHR$(34);";:COLOR 7:PRINT "; 4125 PRINT CHR$(34);"by Label";CHR$(34);";:COLOR 10:":GOSUB 2840 4130 PRINT " PRINT ";CHR$(34);" <N>";CHR$(34);";:COLOR 7:PRINT "; 4140 PRINT CHR$(34);"umber, or ";CHR$(34);";:COLOR 10:":GOSUB 2840 4150 PRINT " PRINT ";CHR$(34);"<K>";CHR$(34);";:COLOR 7:PRINT "; 4160 PRINT CHR$(34);"ey word";CHR$(34);":LOCATE 23,43,1" 4200 GOSUB 2840:GOSUB 2840 4330 PRINT "In line 3970, change upper and lowercase C to upper and lowercase K.":GOSUB 2840 4340 PRINT "In line 3980, change upper and lowercase L to upper and lowercase N." 4350 GOSUB 2990 4360 PRINT "PROBLEM:":GOSUB 2840 4370 PRINT "Documentation is not clear about selecting labels for printing.":GOSUB 2840 4380 PRINT "SOLUTION:":GOSUB 2840 4390 PRINT "Use the DISPLAY option to select desired labels, "; 4395 PRINT "then go to the Main" 4400 GOSUB 2840:PRINT "Menu and use the PRINT option." 4450 GOSUB 2840:GOSUB 2840 4460 PRINT "PROBLEM:":GOSUB 2840 4470 PRINT "There is a bug in the SORT option.":GOSUB 2840 4480 PRINT "SOLUTION:":GOSUB 2840 4490 PRINT "Change the command LOCATE 20,1 in lines 1380 and 1460 to LOCATE 18,1" 4670 GOSUB 2910 'end_info 4680 GOTO 1730 'head_3 4690 GOSUB 2870 'INFO_4A;start_info 4700 PRINT "PROBLEM:":GOSUB 2840 4710 PRINT "The scatterplot calculation is off.":GOSUB 2840 4720 PRINT "SOLUTION:":GOSUB 2840 4730 PRINT "In lines 7485 and 7495, change all occurences of the number 5 ":GOSUB 2840 4733 PRINT "to the number 3.":GOSUB 2840:GOSUB 2840 4735 PRINT "PROBLEM:":GOSUB 2840 4737 PRINT "Two screen titles are incorrect.":GOSUB 2840 4740 PRINT "SOLUTION:":GOSUB 2840 4745 PRINT "In line 5250, after THEN insert:":GOSUB 2840 4747 PRINT " X$="+CHR$(34)+"HISTOGRAM"+CHR$(34)+":GOSUB 1980 ":GOSUB 2840 4750 PRINT "In line 5340, after THEN insert:":GOSUB 2840 4755 PRINT " X$="+CHR$(34)+"FREQUENCY TABLE"+CHR$(34)+":GOSUB 1980":GOSUB 2840:GOSUB 2840 4760 PRINT "Note that the remainder of the lines, GOSUB 6010 and GOSUB 5860," 4770 GOSUB 2840 4780 PRINT "remain intact." 4810 GOSUB 2910 'end_info 4820 GOTO 1770 'head_4 4830 GOSUB 2870 'INFO_4B;start_info 4840 PRINT "PROBLEM:" 4850 GOSUB 2840 4860 PRINT "Trying to load MAKESCRN.USE results in a File Not Found error." 4870 GOSUB 2840 4880 PRINT "SOLUTION:" 4881 GOSUB 2840 4882 PRINT "The file is misnamed. Use the DOS RENAME command to change" 4883 GOSUB 2840 4884 PRINT "SCREEN.USE to MAKESCRN.USE." 4890 GOSUB 2910 'end_info 4900 GOTO 1770 'head_4 4910 GOSUB 2870 'INFO_4C;start_info 4920 PRINT "PROBLEM:" 4930 GOSUB 2840 4940 PRINT "When trying to use a file other than the default HOME.TXT, an" 4950 GOSUB 2840 4960 PRINT "error in line 3390 occurs." 4970 GOSUB 2840 4980 PRINT "SOLUTION:" 4990 GOSUB 2840 5000 PRINT "Edit line 3390 and replace ELSE IF with :IF" 5010 GOSUB 2910 'end_info 5020 GOTO 1770 'head_1 5030 GOSUB 2870 'INFO_5A;start_info 5040 PRINT "PROBLEM:" 5050 GOSUB 2840 5060 PRINT "The program won't load or ends prematurely." 5070 GOSUB 2840 5071 PRINT "SOLUTION:" 5072 GOSUB 2840 5080 PRINT "THE PLANNER requires 256K of main memory to run." 5130 GOSUB 2910 'end_info 5140 GOTO 1810 'head_5 5150 GOSUB 2870 'INFO_5B;start_info 5160 PRINT "PROBLEM:":GOSUB 2840 5162 PRINT "Program puts extra colons in the code and does not delete all REMs.":GOSUB 2840 5164 PRINT "SOLUTION:":GOSUB 2840 5166 PRINT "In SHRINKR1.BAS, renumber line 6900 to become 6950.":GOSUB 2840 5168 PRINT "Add a new line 6900 as follows:":GOSUB 2840:GOSUB 2840 5170 PRINT "6900 IF LEN(RCD$)<INSTR(RCD$,";CHR$(34);" ";CHR$(34);")+3 THEN RCD$=";CHR$(34);CHR$(34);":":GOSUB 2840 5172 PRINT " GOSUB 7500:GOTO 3500":GOSUB 2840:GOSUB 2840 5174 PRINT "In SHRINKR2.BAS, add the following at the end of line 16300:":GOSUB 2840 5176 PRINT " :LN=LEN(FIRST.PART$)":GOSUB 2840 5178 PRINT "In line 17900 of SHRINKR2.BAS change the occurence of >4 to >LN+3":GOSUB 2840 5180 PRINT "In line 1000 of SHRINKR2.BAS change the DEFINT statement to read:":GOSUB 2840 5190 PRINT " DEFINT A-K,M-Z":GOSUB 2840 5250 GOSUB 2910 'end_info 5260 GOTO 1810 'head_5 5270 GOSUB 2870 'INFO_5C;start_info 5280 PRINT "PROBLEM:" 5290 GOSUB 2840 5300 PRINT "The STATUS/INFO Screen is incorrect in LEVEL 2 -- TRAVEL." 5310 GOSUB 2840 5320 PRINT "SOLUTION:" 5330 GOSUB 2840 5340 PRINT "In line 1620, change IF LE>1 THEN GOSUB 2740 to: " 5350 GOSUB 2840 5360 PRINT " IF LE>2 THEN GOSUB 2740" 5361 GOSUB 2840 5362 PRINT "In line 1690, change IF LE=2 THEN 1720 to:" 5363 GOSUB 2840 5364 PRINT " IF LE=1 THEN 1720." 5365 GOSUB 2840 5366 PRINT "Add to the beginning of line 1700:":GOSUB 2840 5367 PRINT " IF LE>2 THEN":GOSUB 2840 5368 PRINT "Leave the rest of the line intact." 5369 GOSUB 2910 'end_info 5370 GOTO 1810 5371 GOSUB 2870 5372 PRINT "PROBLEM:":GOSUB 2840 5373 PRINT "The program will not load.":GOSUB 2840 5374 PRINT "SOLUTION:":GOSUB 2840 5375 PRINT "The file is misnamed. To run the program, "; 5376 PRINT "type RUN";CHR$(34);"STUTOR in BASIC." 5377 GOSUB 2910 5380 GOTO 1810 'head_5 5390 COLOR 7,0 'END 5400 CLS 5410 KEY ON 5420 KEY 1,"LIST " 5430 KEY 2,"RUN"+CHR$(13) 5440 KEY 3,"LOAD "+CHR$(34) 5450 KEY 4,"SAVE "+CHR$(34) 5460 KEY 5,"CONT"+CHR$(13) 5470 KEY 6,"LPT1:" 5480 KEY 7,"TRON"+CHR$(13) 5490 KEY 8,"TROFF"+CHR$(13) 5500 KEY 9,"KEY" 5510 KEY 10,"SCREEN 0,0,0"+CHR$(13) 5520 ON ERROR GOTO 0 5530 END